﻿
Namespace DrawingCEEx.SenseAPIsEx.SenseInputBox

    Public Class HTCStyle3
        Implements IDisposable

#Region " IDisposable Support "

        Private disposedValue As Boolean = False        ' To detect redundant calls

        ' IDisposable
        Protected Overridable Sub Dispose(ByVal disposing As Boolean)
            If Not Me.disposedValue Then
                If disposing Then
                    ' TODO: free other state (managed objects).
                End If

                ' TODO: free your own state (unmanaged objects).
                ' TODO: set large fields to null.
            End If
            Me.disposedValue = True
        End Sub

        ' This code added by Visual Basic to correctly implement the disposable pattern.
        Public Sub Dispose() Implements IDisposable.Dispose
            ' Do not change this code.  Put cleanup code in Dispose(ByVal disposing As Boolean) above.
            Dispose(True)
            GC.SuppressFinalize(Me)
        End Sub
#End Region

        Private _titleText As String = Nothing
        Private _promptText As String = Nothing
        Private _values As ArrayList = Nothing
        Private _defaultValue As String = Nothing


        Public Shared Function InputBox(ByVal Prompt As String, ByVal Title As String, ByVal Items As ArrayList, ByVal SelectedValue As String) As String

            Dim _value As String = Nothing

            With New SenseAPIsEx.SenseInputBox.HTCStyle3Modal

                .Prompt = Prompt
                .Title = Title
                .Items = Items
                .SelectedValue = SelectedValue
                .ShowDialog()
                _value = .SelectedValue
                .Dispose()

            End With

            Return _value

        End Function



    End Class

End Namespace


